unit App.Imp.TAppSystemObjectImp2;

interface

uses SmallStruct.Core, App.Imp.TAppSystemObjectImp;

type
  TAppSystemObjectImp2 = class(TAppSystemObjectImp)
  public
    procedure InitClassTable(AClassTable: ISSClassTable); override;
    function GetSystemDatabaseConnection: string; override;
  end;

implementation

uses
  App.Action.Default,
  App.View.Application.TAppMainView;

{ TAppSystemObjectImp2 }

function TAppSystemObjectImp2.GetSystemDatabaseConnection: string;
begin

end;

procedure TAppSystemObjectImp2.InitClassTable(AClassTable: ISSClassTable);
begin
  inherited;
//  Moidfy  
  AClassTable.RegisterClass('APP_MAIN_VIEW', TAppMainView);

{ DEFAULT }
  AClassTable.RegisterClass(DEFAULT_ACTIONVIEW_LOAD_ACTION, DEFAULT_ACTIONVIEW_LOAD_ACTION_CLASS);
  AClassTable.RegisterClass(DEFAULT_APPEND_ACTION, DEFAULT_APPEND_ACTION_CLASS);
  AClassTable.RegisterClass(DEFAULT_CHILD_ACTIONVIEW_OPEN_ACTION, DEFAULT_CHILD_ACTIONVIEW_OPEN_ACTION_CLASS);
  AClassTable.RegisterClass(DEFAULT_CHOOSE_ACTIONVIEW_OPEN_ACTION, DEFAULT_CHOOSE_ACTIONVIEW_OPEN_ACTION_CLASS);
  AClassTable.RegisterClass(DEFAULT_DELETE_ACTION, DEFAULT_DELETE_ACTION_CLASS);
  AClassTable.RegisterClass(DEFAULT_EDIT_ACTION, DEFAULT_EDIT_ACTION_CLASS);
  AClassTable.RegisterClass(DEFAULT_NEXT_ACTION, DEFAULT_NEXT_ACTION_CLASS);
  AClassTable.RegisterClass(DEFAULT_PRIOR_ACTION, DEFAULT_PRIOR_ACTION_CLASS);
  AClassTable.RegisterClass(DEFAULT_SAVE_ACTION, DEFAULT_SAVE_ACTION_CLASS);
  AClassTable.RegisterClass(DEFAULT_REFRESH_ACTION,DEFAULT_REFRESH_ACTION_CLASS);
  AClassTable.RegisterClass(DEFAULT_ACTION_VIEW_OPEN_ACTION,DEFAULT_ACTION_VIEW_OPEN_ACTION_CLASS);
  AClassTable.RegisterClass(DEFAULT_EXPORT_TO_EXCEL_ACTION,DEFAULT_EXPORT_TO_EXCEL_ACTION_CLASS);
end;

end.
